GRAPHREP 

 

#Setting paramenters for x, y, w and h

SET prm_x:1cm

SET prm_y:1cm

SET prm_w:1cm

SET prm_h:1cm

SET prm_w:1cm

SET prm_h:1cm

 

 

# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>  CONDITION to Show just the red DOT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

AVAL sh:"X_Umsl"

IF (sh = "Hide")

 

# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>  Map Dot  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

# ----- Upper part / half circle

PEN color:red

FILL color:red

PIE x:  (prm_x * 0)     y: (prm_y * 0)

rx: (prm_x * 0.25)  ry: (prm_y * 0.25)

x1: (prm_x* 1)      y1:(prm_y * 0)

x2: (prm_x * (-1))  y2:(prm_y * 0)

 

# ----- Lower Triangle Part

FILL color:red

POLYGON 3

x1: (prm_x * (-0.25)) y1: (prm_y * 0)

x2: (prm_x * 0)       y2:(prm_y * 0.5)

x3: (prm_x * 0.25)    y3:(prm_y * 0)

 

# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

 

# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>  Else to Show the red DOT and the info box>>>>>>>>>>>>>>>>>>>>>>>>

 

ELSIF (sh = "Show")

 

# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>  Map Dot  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

# ----- Upper part / half circle

PEN color:red

FILL color:red

PIE x:  (prm_x * 0)     y: (prm_y * 0)

rx: (prm_x * 0.25)  ry: (prm_y * 0.25)

x1: (prm_x* 1)      y1:(prm_y * 0)

x2: (prm_x * (-1))  y2:(prm_y * 0)

 

# ----- Lower Triangle Part

FILL color:red

POLYGON 3

x1: (prm_x * (-0.25)) y1: (prm_y * 0)

x2: (prm_x * 0)       y2:(prm_y * 0.5)

x3: (prm_x * 0.25)    y3:(prm_y * 0)

# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

 

 

# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>  Info Box  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

 

#----------------------------------------------------------------------------------------------------

# -------- Right   A B O U T   Box ------------------------------------------------------------------

#----------------------------------------------------------------------------------------------------

PEN color:green

FILL color:white

POLYGON 7

x1:(prm_x * 1)    y1: (prm_y * (-0.5))  

x2:(prm_x * 1)    y2: (prm_y * (-0.25)) 

x3:(prm_x * 0.75) y3: (prm_y * 0)

x4:(prm_x * 1)    y4: (prm_y * 0.25)

x5:(prm_x * 1)    y5: (prm_y * 5) 

x6:(prm_x * 11)   y6: (prm_y * 5)

x7:(prm_x * 11)   y7: (prm_y * (-0.5))

 

# -------- NAME ------------

FONT style:"bold"

TEXT "Name:" x:(prm_x * 1.5)  y:(prm_y * 0) 

FONT

ATTR "X_Title" x:(prm_x * 1.5) y:(prm_y * 0.5) 

 

# -------- ABOUT ------------

FONT style:"bold"

TEXT "About:" x:(prm_x * 1.5) y:(prm_y * 1.3) 

FONT

ATTRBOX "X_Description" x:(prm_x * 1.5) y:(prm_y * 1.8) w:(prm_w * 9) h:(prm_h * 2.5)

 

ATTR "X_Description" x:(prm_x * 1.5) y:(prm_y * 1.8) w:(prm_w * 9) h:(prm_h * 2.5) line-break:words row:5

 

 

#------------------------------------------------------------------------------------------------------

# -------- Right  L O C A T I O N   Box ---------------------------------------------------------------

#------------------------------------------------------------------------------------------------------

 

RECTANGLE x:(prm_x * 1) y:(prm_y * 5.25) w:(prm_w * 10) h:(prm_h * 7)

 

# -------- LOCATION ------------

FONT style:"bold"

TEXT "Location:" x:(prm_x * 1.5) y:(prm_x * 5.5) FONT style:bold

FONT

 

AVAL set-default:"" a:"X_Image_external"

 

# ----- Search function to remove "\" and "@" from filepath

SET found:(search(a,"\"",0))

IF (found >= 0)

  IF (found = (LEN a - 1))

    SET s:(search(a,"@",0) + 1)

    SET e:((LEN a) - 1)

  ELSE

    SET s:((found) + 1)

    SET foundend:(search(a,"\"",s))

    IF (foundend >= 0)

      SET e:((LEN a) - 1)

    ELSE

      SET e:(LEN a)

    ENDIF

  ENDIF

ELSE

  SET e:(LEN a)

  SET s:(search(a,"@",0) + 1)

ENDIF

 

SET grfk:(copy (a, s, e - s))

 

SET s:((LEN grfk) - 4)

SET e:((LEN grfk))

SET ext:(copy (grfk, s, e))

 

 

# -- build obj --

 

SET ext:(lower(ext))

 

# ---- table to position the image inside

TABLE x:(prm_x * 1.5) y:(prm_y * 6.5) w:(prm_w * 9) h:(prm_h * 5) cols:3 rows:3

    w1:(prm_w * 0.15) w2:100% w3:(prm_w * 0.15)

    h1:(prm_h * 0.15) h2:100% h3:(prm_h * 0.15)

    STRETCH off

 

 

# -- In case no image is loaded, show gray brackground

RECTANGLE x:(prm_x * 1.5) y:(prm_y * 6.5) w:(tabw1 + tabw2 + tabw3) h:(tabh1 + tabh2 + tabh3)

 

 

IF ( (ext=".bmp") OR (ext=".gif") OR (ext=".ico") OR (ext=".jpg") OR (ext=".jpeg") OR (ext=".png") OR (ext=".targa") OR (ext=".tiff") OR (ext=".wbmp") OR (ext=".xpm") )

    

BITMAP (grfk) x:(prm_x * 1.5) y:(prm_y * 6.5) w:(tabw1 + tabw2 + tabw3) h:(tabh1 + tabh2 + tabh3)

 

ENDIF

 

#------------------------------------------------------------------------------------------------------

# -------- Right   W E B S I T E   Box ----------------------------------------------------------------

#------------------------------------------------------------------------------------------------------

 

RECTANGLE x:(prm_x * 1) y:(prm_y * 12.5) w:(prm_w * 10) h:(prm_h * 2)

 

# -------- WEBSITE ------------

FONT style:"bold"

TEXT "Website:" x:(prm_x * 1.5) y:(prm_y * 13)

FONT

TEXT "http://www.univie.ac.at./" x:(prm_x * 1.5) y:(prm_y * 13.5)

 

#---- Creates hotspot to click on above the website link

HOTSPOT "X_Hyperlink" x:(prm_x * 1.5) y:(prm_y * 13) w:(prm_w * 5) h:(prm_h * 2) 

 

# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

 

ENDIF